home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / GMS / Source / Asm / Rasterlists / Colourlist.s < prev   
Encoding:
Text File  |  1997-05-01  |  3.8 KB  |  127 lines
  1. ;-------T-------T------------------------T----------------------------------;
  2. ;Colourlist
  3. ;----------
  4. ;This demo displays a simple colourlist.  To do this we use a raster command
  5. ;specially reserved for colourlists (COLOURLIST).  Colourlists enable you to
  6. ;have many more colours than would normally be allowed -- even though only
  7. ;1 bitplane is active, we have 256 colours on screen.
  8. ;
  9. ;To exit the demo, press the left mouse button.
  10.  
  11.     INCDIR    "INCLUDES:"
  12.     INCLUDE    "games/games.i"
  13.     INCLUDE    "games/games_lib.i"
  14.  
  15. CALL    MACRO
  16.     jsr    _LVO\1(a6)
  17.     ENDM
  18.  
  19.     SECTION    "Colourlist",CODE
  20.  
  21. ;===========================================================================;
  22. ;                             INITIALISE DEMO
  23. ;===========================================================================;
  24.  
  25.     STARTGMS
  26.  
  27. Start:    MOVEM.L    A0-A6/D1-D7,-(SP)
  28.     move.l    GMSBase(pc),a6
  29.     lea    ScreenTags(pc),a0
  30.     CALL    ShowScreen
  31.     tst.l    d0
  32.     beq.s    .Error_Screen
  33.  
  34.     CALL    WaitLMB
  35.  
  36.     move.l    GMSBase(pc),a6
  37.     move.l    Screen(pc),a0
  38.     CALL    DeleteScreen
  39. .Error_Screen
  40.     MOVEM.L    (SP)+,A0-A6/D1-D7
  41.     moveq    #ERR_OK,d0
  42.     rts
  43.  
  44. ;===========================================================================;
  45. ;                                  DATA
  46. ;===========================================================================;
  47.  
  48. ScreenTags:
  49.     dc.l    TAGS_GAMESCREEN
  50. Screen:    dc.l    0
  51.     dc.l    GSA_Rasterlist,.rasterlist
  52.     dc.l    GSA_Planes,1
  53.     dc.l    GSA_Attrib,BLKBDR
  54.     dc.l    TAGEND
  55.  
  56. .rasterlist
  57.     COLOURLIST 000,1,00,.colours    ;Line, Skip, Colnum, ColourList.
  58.     RASTEND
  59.  
  60. .colours
  61.     dc.l    $010000,$020000,$030000,$040000
  62.     dc.l    $050000,$060000,$070000,$080000
  63.     dc.l    $090000,$0a0000,$0b0000,$0c0000
  64.     dc.l    $0d0000,$0e0000,$0f0000,$100000
  65.     dc.l    $110000,$120000,$130000,$140000
  66.     dc.l    $150000,$160000,$170000,$180000
  67.     dc.l    $190000,$1a0000,$1b0000,$1c0000
  68.     dc.l    $1d0000,$1e0000,$1f0000,$200000
  69.     dc.l    $210000,$220000,$230000,$240000
  70.     dc.l    $250000,$260000,$270000,$280000
  71.     dc.l    $290000,$2a0000,$2b0000,$2c0000
  72.     dc.l    $2d0000,$2e0000,$2f0000,$300000
  73.     dc.l    $310000,$320000,$330000,$340000
  74.     dc.l    $350000,$360000,$370000,$380000
  75.     dc.l    $390000,$3a0000,$3b0000,$3c0000
  76.     dc.l    $3d0000,$3e0000,$3f0000,$400000
  77.     dc.l    $410000,$420000,$430000,$440000
  78.     dc.l    $450000,$460000,$470000,$480000
  79.     dc.l    $490000,$4a0000,$4b0000,$4c0000
  80.     dc.l    $4d0000,$4e0000,$4f0000,$500000
  81.     dc.l    $510000,$520000,$530000,$540000
  82.     dc.l    $550000,$560000,$570000,$580000
  83.     dc.l    $590000,$5a0000,$5b0000,$5c0000
  84.     dc.l    $5d0000,$5e0000,$5f0000,$600000
  85.     dc.l    $610000,$620000,$630000,$640000
  86.     dc.l    $650000,$660000,$670000,$680000
  87.     dc.l    $690000,$6a0000,$6b0000,$6c0000
  88.     dc.l    $6d0000,$6e0000,$6f0000,$700000
  89.     dc.l    $710000,$720000,$730000,$740000
  90.     dc.l    $750000,$760000,$770000,$780000
  91.     dc.l    $790000,$7a0000,$7b0000,$7c0000
  92.     dc.l    $7d0000,$7e0000,$7f0000,$800000
  93.     dc.l    $810000,$820000,$830000,$840000
  94.     dc.l    $850000,$860000,$870000,$880000
  95.     dc.l    $890000,$8a0000,$8b0000,$8c0000
  96.     dc.l    $8d0000,$8e0000,$8f0000,$900000
  97.     dc.l    $910000,$920000,$930000,$940000
  98.     dc.l    $950000,$960000,$970000,$980000
  99.     dc.l    $990000,$9a0000,$9b0000,$9c0000
  100.     dc.l    $9d0000,$9e0000,$9f0000,$a00000
  101.     dc.l    $a10000,$a20000,$a30000,$a40000
  102.     dc.l    $a50000,$a60000,$a70000,$a80000
  103.     dc.l    $a90000,$aa0000,$ab0000,$ac0000
  104.     dc.l    $ad0000,$ae0000,$af0000,$b00000
  105.     dc.l    $b10000,$b20000,$b30000,$b40000
  106.     dc.l    $b50000,$b60000,$b70000,$b80000
  107.     dc.l    $b90000,$ba0000,$bb0000,$bc0000
  108.     dc.l    $bd0000,$be0000,$bf0000,$c00000
  109.     dc.l    $c10000,$c20000,$c30000,$c40000
  110.     dc.l    $c50000,$c60000,$c70000,$c80000
  111.     dc.l    $c90000,$ca0000,$cb0000,$cc0000
  112.     dc.l    $cd0000,$ce0000,$cf0000,$d00000
  113.     dc.l    $d10000,$d20000,$d30000,$d40000
  114.     dc.l    $d50000,$d60000,$d70000,$d80000
  115.     dc.l    $d90000,$da0000,$db0000,$dc0000
  116.     dc.l    $dd0000,$de0000,$df0000,$e00000
  117.     dc.l    $e10000,$e20000,$e30000,$e40000
  118.     dc.l    $e50000,$e60000,$e70000,$e80000
  119.     dc.l    $e90000,$ea0000,$eb0000,$ec0000
  120.     dc.l    $ed0000,$ee0000,$ef0000,$f00000
  121.     dc.l    $f10000,$f20000,$f30000,$f40000
  122.     dc.l    $f50000,$f60000,$f70000,$f80000
  123.     dc.l    $f90000,$fa0000,$fb0000,$fc0000
  124.     dc.l    $fd0000,$fe0000,$ff0000
  125.     dc.l    -1
  126.  
  127.